home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 04 / 4 / DISK0442.ZIP / PWARN.WAR < prev    next >
Text File  |  1990-06-14  |  71KB  |  152 lines
  1. COMMA ? SEMICOLON # PERCENT ~ QUOTE ! PLIPUNCH Y INDENT Y VERTBAR |
  2. TITLE  SPA:WN PROGRAM IN PASCAL /
  3.  PROGRAM WARNIER(INFLE,OUTFLE,PLIPUNCH,OUTDIAG,SRCPUNCH);??
  4.   ?(T*(*$M 32760,0,655360*)*T)??
  5.   ?(T*USES DOS;*T)??
  6.   ?(*DECLARATIONS*)??
  7.   ?(*PROCEDURES*)??
  8.   ?BEGIN~---~END (*MAIN PROGRAM*).?#
  9. (*DECLARATIONS*)??
  10.   ?CONST??
  11.   ?TYPE??
  12.   ?VAR!10?#
  13. TYPE??
  14.   ?WPTRT=@WNODE;~LPTRT=@LINEORD;~QPTRT=@QEL;~SPPTRT=@STRP;??
  15.   ?(*MORE TYPES*)??
  16.   ?(T*TDSTRING = STRING[8];*T)??
  17.   ?(8*CARDIMAGE=PACKED ARRAY[1..MAXLLIP1] OF CHAR;*8)??
  18.   ?(*ARBITRARY DEEPENER*)?#
  19. (8*CARDIMAGE=PACKED ARRAY[1..MAXLLIP1] OF CHAR;*8)??
  20.   ?(T*CARDIMAGE=STRING[MAXLLIP1];*T)?#
  21. (*MORE TYPES*)??
  22.   ?VMT=PACKED ARRAY[1..MAXLLO] OF CHAR;??
  23.   ?WORDT=PACKED ARRAY[1..9] OF CHAR;??
  24.   ?STRPGTP=PACKED ARRAY[1.~.LENSTRPGS] OF CHAR;?#
  25. (*ARBITRARY DEEPENER*)??
  26.   ?(*RECORD DECLARATIONS*)??
  27.   ?THREEDIG=(8*PACKED ARRAY[1..3] OF CHAR*8)~(T*STRING[3]*T);??
  28.   ?BRKCHRS=SET OF CHAR;?#
  29. VAR!10??
  30.   ?LNOEC,PCNTEC,GMXD,PCNT,NCT,LPCNT,NQ,GMXH,PASSCNT,??
  31.   ?WHEAD,WLAST,H,TWPTR,T,WNTOP,FRPTR,BRPTR:WPTRT;??
  32.   ?CPAGE:SPPTRT;??
  33.   ?LOTOP:LPTRT;??
  34.   ?QH,QR,FPORD,TPTR,QLTOP:QPTRT;??
  35.   ?(*ARRAYS & STRINGS*)??
  36.   ?BREAKERS,PRES,POSTS,INDIFFS:BRKCHRS;??
  37.   ?TAB,ICH,COM,SEMI,PCT,PEJ,QOT,SUPERZERO,SUPERNINE:CHAR;??
  38.   ?PLIFLAG,INDFLAG,SRCFLAG,PRINTABLE:BOOLEAN;??
  39.   ?INFLE,OUTFLE,PLIPUNCH,OUTDIAG,SRCPUNCH:TEXT;?#
  40. LNOEC,PCNTEC,GMXD,PCNT,NCT,LPCNT,NQ,GMXH,PASSCNT,??
  41.   +?ECPL,COLPP,DGMPL,LPP,TOPM,LLO,LLOM4,LLI,LLIM4,LLIP1,CTRL,?#
  42. +ECPL,COLPP,DGMPL,LPP,TOPM,LLO,LLOM4,LLI,LLIM4,LLIP1,CTRL,??
  43.   +?TITLEN,LASTNQ,NODEWIDTH,PREWIDTH,NODEWPPW,NODEWPP3,?#
  44. +TITLEN,LASTNQ,NODEWIDTH,PREWIDTH,NODEWPPW,NODEWPP3,??
  45.   +?I,NDDN,CHDEL,GST,NQLIM,RETC,DISAMNO,NSP,LSP,FROFF,BROFF:INTEGER;?#
  46. CONST??
  47.   ?NMDEL=(T*13*T)~(8*64*8);~MAXCPP=10;~MAXNW=30;~MAXPW=10;~MAXLLO=160;?#
  48. NMDEL=(T*13*T)~(8*64*8);MAXCPP=10;MAXNW=30;MAXPW=10;MAXLLO=160;??
  49.   ?MAXLLIP1=161;~MAXDEPTH=40;~NBRSTRPGS=20;~LENSTRPGS=5000;DDSTL=100;?#
  50. MAXLLIP1=161;MAXDEPTH=40;NBRSTRPGS=20;LENSTRPGS=5000;DDSTL=100;??
  51.   ?(*CHARACTER CONSTANTS*)?#
  52. (*CHARACTER CONSTANTS*)??
  53.   ?REGZERO='0';~CAPA='A';~SMALLA='a';??
  54.   ?HD1='ECHO OF INPUT  /  DIAGNOSTIC LOG';?#
  55. (*RECORD DECLARATIONS*)??
  56.   ?(*WARNIER NODE DEFINITION~*)??
  57.   ?LINEORD=RECORD~---~END (*LINEORD NODE DEFINITION~*);??
  58.   ?STRP=RECORD ~STRNG:STRPGTP;~END (*STRP DEFINITION*);??
  59.   ?(*PAGE QEL NODE DEFINITION *)?#
  60. (*WARNIER NODE DEFINITION*)??
  61.   ?WNODE=PACKED RECORD~---~END;?#
  62. WNODE=PACKED RECORD~---~END;??
  63.   ?(*POINTER TO SUBPAGE QUEUE ELEMENT IN PAGINATION*)??
  64.   ?(*(NEXT LVL, BACK, NEXT BRO)WARNIER POINTERS,(LEFT,RIGHT)LEX PTRS*)??
  65.   ?(*START,LOCAL START,(NODE,REP) STRING OFFSET,MAXMOVE*)??
  66.   ?(*LEN(PRE,VAL,INFX,REP,OUT),LVL,LINES/NODE,LCL DEPTH,(STR,REP)PGNO*)?#
  67. (*LEN(PRE,VAL,INFX,REP,OUT),LVL,LINES/NODE,LCL DEPTH,(STR,REP)PGNO*)??
  68.   ?LP,LV,LI,LR,LO,LVL,LPN,LD,SPN,RSPN:CHAR?#
  69. (*START,LOCAL START,(NODE,REP) STRING OFFSET,MAXMOVE*)??
  70.   ?ST,LS,NDSOFF,RPSOFF,MXM:INTEGER;?#
  71. (*POINTER TO SUBPAGE QUEUE ELEMENT IN PAGINATION*)??
  72.   ?SUBPAGE:QPTRT;?#
  73. (*(NEXT LVL, BACK, NEXT BRO)WARNIER POINTERS,(LEFT,RIGHT)LEX PTRS*)??
  74.   ?NLVL,BCK,NXT,LLINK,RLINK:WPTRT;?#
  75. LINEORD=RECORD~---~END (*LINEORD NODE DEFINITION*);??
  76.   ?(*CURRENT NODE OF COUSIN SET*)??
  77.   ?WPTR:WPTRT;??
  78.   ?(*NEXT SET OF COUSINS*)??
  79.   ?NXTSC:LPTRT;??
  80.   ?(*START POSITION, LAST POSITION IN LAYOUT*)??
  81.   ?STARTP,LASTP:INTEGER?#
  82. (*PAGE QEL NODE DEFINITION *)??
  83.   ?QEL=PACKED RECORD~---~END;?#
  84. QEL=PACKED RECORD~---~END;??
  85.   ?(*DEWEY DECIMAL STRING*)??
  86.   ?(*FORWARD AND BACKWARD IN QUEUE*)??
  87.   ?(*POINTERS*)??
  88.   ?(*FULLWORD HELD VALUES, PRIORITY*)??
  89.   ?(*BYTE HELD VALUES*)?#
  90. (*FULLWORD HELD VALUES, PRIORITY*)??
  91.   ?PRTY,LSPH,STSH,STPH,NDSOFFH:INTEGER;?#
  92. (*BYTE HELD VALUES*)??
  93.   ?LPH,LVH,LIH,LRH,LPNH,SPNH,LDPH,DDL:CHAR?#
  94. (*DEWEY DECIMAL STRING*)??
  95.   ?DDNSTR:(8*PACKED ARRAY[1..DDSTL] OF CHAR*8)~(T*STRING[DDSTL]*T);?#
  96. (*FORWARD AND BACKWARD IN QUEUE*)??
  97.   ?NEXTQ,LASTQ:QPTRT;?#
  98. (*POINTERS*)??
  99.   ?SPPTR,NXTH,NLVLH:WPTRT;?#
  100. (*ARRAYS & STRINGS*)??
  101.   ?KEYS:ARRAY[1..22] OF WORDT;??
  102.   ?START,REAR:ARRAY[1..MAXCPP] OF LPTRT;??
  103.   ?SPADDR:ARRAY[1..NBRSTRPGS] OF SPPTRT;??
  104.   ?BP,NP,NNE,NBE:ARRAY[1.~.MAXCPP] OF INTEGER;??
  105.   ?(*CHARACTER VARS*)??
  106.   ?MAXLEN:ARRAY[1..3] OF INTEGER;??
  107.   ?MAXM,TOTWIDTH:ARRAY[1.~.MAXDEPTH] OF INTEGER;?#
  108. (*CHARACTER VARS*)??
  109.   ?(8*BLNW:PACKED ARRAY[1..MAXNW] OF CHAR;*8)??
  110.   ?(T*BLNW:STRING[MAXNW];*T)??
  111.   ?(*DEWEY DECIMAL HOLDERS*)??
  112.   ?HDRPC:(8*PACKED ARRAY[1..24] OF CHAR*8)~(T*STRING[24]*T);??
  113.   ?BACKREF:(8*PACKED ARRAY[1..28] OF CHAR*8)~(T*STRING[28]*T);??
  114.   ?CSTR:(8*PACKED ARRAY[1..47] OF CHAR*8)~(T*STRING[47]*T);??
  115.   ?CPN:THREEDIG;??
  116.   ?(*MORE ARRAYS*)??
  117.   ?VBAR,TBR,BBR:PACKED ARRAY[1..3] OF CHAR;??
  118.   ?TITLE,EWDL,LCEWDL,BLANKV,TVAL:VMT;??
  119.   ?INCARD:CARDIMAGE;~WORDVAR:WORDT;?#
  120. (*DEWEY DECIMAL HOLDERS*)??
  121.   ?DDN,PDN:(8*PACKED ARRAY[1..DDSTL] OF CHAR*8)~(T*STRING[DDSTL]*T);?#
  122. (*MORE ARRAYS*)??
  123.   ?CN1,CN2,CN3:(8*PACKED ARRAY[1..60] OF CHAR*8)~(T*STRING[60]*T);??
  124.   ?NOTITLE,EWD,LCEWD,SEEPG:PACKED ARRAY[1..24] OF CHAR;??
  125.   ?TINFX,TREP:(8*PACKED ARRAY[1..12] OF CHAR*8)~(T*STRING[12]*T);??
  126.   ?TPRE:(8*PACKED ARRAY[1..MAXPW] OF CHAR*8)~(T*STRING[MAXPW]*T);??
  127.   ?D(8*,TIM*8):(8*PACKED ARRAY[1..8] OF CHAR*8)~(T*STRING[8]*T);?#
  128. (*PROCEDURES*)??
  129.   ?(*SUPPORT, STARTUP, INPUT*)??
  130.   ?PROCEDURE SRCOUT(PPTR:WPTRT);??
  131.   ?PROCEDURE PLIOUT(TPTR:WPTRT);??
  132.   ?(*LOGICAL LAYOUT PHASE ROUTINES*)??
  133.   ?(*PHYSICAL OUTPUT PHASE ROUTINES*)?#
  134. (*SUPPORT, STARTUP, INPUT*)??
  135.   ?(*GENERAL SUPPORT ROUTINES*)??
  136.   ?PROCEDURE INITIALIZE;~(8*VAR I:INTEGER;*8)~BEGIN;~---~END;??
  137.   ?(*INPUT PHASE ROUTINES*)?#
  138. (*GENERAL SUPPORT ROUTINES*)??
  139.   ?(T*(*$I TIMEDATE.PAS*)*T)??
  140.   ?PROCEDURE CONVERT(I:INTEGER;~VAR TPN:THREEDIG);??
  141.   ?PROCEDURE OUTP;??
  142.   ?PROCEDURE NEWNODE;?#
  143. PROCEDURE NEWNODE;??
  144.   ?BEGIN~---~END;!141?#
  145. BEGIN~---~END;!141??
  146.   ?IF WNTOP<>NIL THEN BEGIN~---~END ~ELSE ~NEW(TWPTR);??
  147.   ?(*INIT NODE*)?#
  148. (*INIT NODE*)??
  149.   ?WITH TWPTR@ DO ~BEGIN~---~END;!887?#
  150. IF WNTOP<>NIL THEN BEGIN~---~END ELSE NEW(TWPTR);??
  151.   ?TWPTR:=WNTOP;~WNTOP:=TWPTR@.NXT?#
  152. WITH TWPTR@ DO BEGIN~---~END;!887??,